BBS Toolkit/BBS Toolkit.iso/doors_1/doordr50.zip/UNITINTR.ARJ/DDOVR2.INT

Text File | 1992-02-02 | 839b | 43 lines

unit ddovr2;

{$F+,O+,V-}

interface

uses crt;

procedure Loadconfig(
 fn: string;
 var bbs_software: byte;
 var user_first_name,user_last_name: string;
 var user_access_level: word;
 var bbs_time_left: integer;
 var com_port: byte;
 var baud_rate: word;
 var node_num: byte;
 var local: boolean;
 var graphics: byte;
 var color1: boolean;
 var color_chg: boolean;
 var board_name: string;
 var sysop_first_name: string;
 var sysop_last_name: string;
 var maxtime: word;
 var quiet: boolean;
 var localcol: boolean;
 var statfore: byte;
 var statback: byte;
 var statline: boolean;
 var line43: boolean;
 var fossilio: boolean;
 var doorfilepath: string;
 var sbon: boolean;
 var sbint: word;
 var sbaddr: word);

var
 ddcfgp1,ddcfgp2,ddcfgps: string[80];
const
 DDUserConfigPtr: pointer = nil;